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html generate-f orm() { 
uuid := new UUID() ; 
return f orm- html (uuid) ; 

} 

void biz-logic (uuid, data) { 
start (uuid) ; 

// Execute SQL with data as argument. 
// Store result in the variable res 
testable : : commit (res , uuid) ; 

} 

html start-transact ion (uuid, data) { 

// Spawn new thread to execute biz-logic 
// with uuid and data as arguments 
time := current -time() ; 
return stat-page-html (uuid, data, time) ; 

} 

html check (uuid, data, time) { 

if current -time() - time > timeout then 
testable: :rollback(uuid) ; 
res := testable: : get-outcome (uuid) ; 
if res == nil then 

> return start-transaction(uuid,data) ; 
else 

return result-page-html(res) ; 

else 

res := testable: : get-outcome (uuid) ; 
if res != nil then 

return result-page-html(res) ; 
else 

return st at -page-html (uuid , data , t ime) 



void FormServlet(HttpServletRequest req, 

HttpServletResponse resp) { 
request .getSession (true) ; 
// Normal Form Creation processing 
// with Form handling servlet name stored 
// in a hidden field, 

// and action set to the Start servlet 

} 

void BizLogic(HttpServletRequest req, 

HttpServletResponse resp) { 
WeTDr i ver . getConnection ( ' * JDBC-URL ' >); 
// Execute JDBC commands and other logic 
// Output result normally 
// Do NOT commit any JDBC updates 

} 

void Start (HttpServletRequest req, 

HttpServletResponse resp) { 
WorkQueue .queue (req. clone () , 

resp. cloneO ) ; 
SendStatPage(req, resp); 

} 

void Check (HttpServletRequest req, 

HttpServletResponse resp) { 
result = getOutcome(req.getSession() ) ; 
if (result != null) { 
result . send (resp) ; 
return ; 

} 

job = get JobFromQueue (req. getSession () ) ; 
if (currentTime() - job. time > timeout) { 
job. abort () ; 

WorkQueue. queue (job. req, job. resp) ; 
} else { 

SendStatPage( job. req, job. resp); 

} 

} 

void WorkerThreadO { 
while(true) { 

job = get JobFromQueue () ; 
servlet = job . targetServlet ; 
try { 

// Begin Transaction 
servlet . service(job. req, job. resp) ; 
storeOutcome(job.req, job. resp); 
remove JobFromQueue ( job) ; 
// Commit Transaction 
} catch (Exception e) { 
// Abort transaction 

} 

} 

} 
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